home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00001_FishermansLog.ls next >
Encoding:
Text File  |  2002-04-15  |  1.1 KB  |  34 lines
  1. global DBPath
  2.  
  3. on exitFrame me
  4.   db = DGOpenDatabase(DBPath & "FlyBox.mdb", 0, 0, ";PWD=StopLooking")
  5.   qd = DGQDOpen("GetUserAnecdotes", db)
  6.   rs = DGQDCreateRS(qd)
  7.   a = 0
  8.   repeat while not DGRSisEOF(rs)
  9.     setVariable(sprite(1), "Result" & a & "_FlyID", DGRSGetFieldValue("FlyID", rs) & EMPTY)
  10.     setVariable(sprite(1), "Result" & a & "_Picture", DGRSGetFieldValue("Picture", rs))
  11.     setVariable(sprite(1), "Result" & a & "_FlyName", DGRSGetFieldValue("FlyName", rs))
  12.     setVariable(sprite(1), "Result" & a & "_Descript", DGRSGetFieldValue("Descript", rs))
  13.     DGRSmoveNext(rs)
  14.     a = a + 1
  15.   end repeat
  16.   Results = getVariable(sprite(1), "Results")
  17.   Results = Results.integer
  18.   setVariable(sprite(1), "Results", a & EMPTY)
  19.   repeat while a < Results
  20.     setVariable(sprite(1), "Result" & a & "_FlyID", EMPTY)
  21.     setVariable(sprite(1), "Result" & a & "_Picture", EMPTY)
  22.     setVariable(sprite(1), "Result" & a & "_FlyName", EMPTY)
  23.     setVariable(sprite(1), "Result" & a & "_Descript", EMPTY)
  24.     a = a + 1
  25.   end repeat
  26.   if DGQDIsOpen(qd) then
  27.     DGQDClose(qd)
  28.   end if
  29.   DGRSClose(rs)
  30.   DGClose(db)
  31.   sprite(1).goToFrame("Results")
  32.   go("Finished")
  33. end
  34.